home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / umich / utils / password.arc / password.src / text0000.txt < prev   
Encoding:
Text File  |  1988-08-22  |  4.9 KB  |  142 lines
  1.  
  2. Here's a little program which i put in my HD auto folder.  All it does is
  3. prompt the user for a loginame and password.  The loginame is not used at
  4. all. Only the password is used for verification.  The program will not
  5. terminate until the correct password is entered.  Hence, one can use it to
  6. prevent unauthorized access to one's ST.  Of course, one can always boot
  7. from the floppy drive.
  8.  
  9. Both source code and executables are included. As one can see, i've set up
  10. two passwords:  a) atari!   b) guest!
  11. One can use a HEX editor to re-edit those two passwords in the executables.
  12. The two passwords can be found at the end of line 19 and at beginning of
  13. line 20 of the executables.  The source code could be better, but .....
  14. Also, I'm posting it here since it's so small.  :-)
  15.  
  16.  
  17. /*   Use at your own risk.  Author/poster will not be responsible in any
  18.      way for any consequence of using this program.
  19. */
  20.  
  21. #include <osbind.h>
  22. #define passwd1 "atari!"        /*  your password  */
  23. #define passwd2 "guest!"        /*  for your guests? */
  24. #define       LINEFEED    10
  25. #define       RETURN      13
  26. #define       TRUE     1
  27. #define          FALSE      0
  28. #define       MAX    16        /*  max length for password  */
  29. main()
  30. {
  31. char word[MAX];
  32.                
  33.     Cconws("\33E\33e\r\n");       /* clear screen, enable cursor, skipline */
  34.     do
  35.     {
  36.       Cconws( "login: " );
  37.       getword( word, TRUE );
  38.       Cconws( "Password: ");
  39.       getword( word, FALSE );
  40.       if ( strcmp( word, passwd1 ) == 0 )
  41.             exit(0);
  42.       else
  43.         if ( strcmp( word, passwd2 ) == 0 )
  44.             exit( 0 );
  45.         else
  46.             {
  47.             Cconws("Login incorrect\n\r");
  48.             Cconout(7);        /* ring bell */
  49.             }
  50.     }  while (TRUE);
  51. }
  52.     
  53. getword( str, echo )
  54. char *str;
  55. int echo;
  56. {
  57. char ch;
  58. int i;
  59. long int lret;
  60.  
  61.   i = 0; 
  62.   do
  63.   {
  64.     if ( Cconis() != 0 )        /* keyboard char available  */
  65.         {
  66.          lret = Crawcin();        /* get raw char from keyboard */
  67.              ch = lret & 0x00ff;    /* Mask off everything but the low byte */
  68.          if (echo)
  69.          Cconout( ch );        /* echo if requested */
  70.  
  71.          if ( ch !=  RETURN )
  72.          {
  73.                 if (i < MAX)
  74.             {
  75.                 str[i] = ch;
  76.                 i++;
  77.             }
  78.          }
  79.          else
  80.             str[i] = '\0';
  81.      }
  82.    } while ( ch != RETURN );
  83.  
  84.    Cconout( LINEFEED );
  85.    Cconout( RETURN );
  86. }
  87.  
  88. ==============================
  89. table
  90.  !"#$%&'()*+,-./0123456789:;<=>?
  91. @ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_
  92. begin 644 forpost.prg
  93. M8!H   1F    @                        "IO  0@;0 8T>T '"1M "Q"z
  94. M@")(2A)G4"**)DHD64H:9OPBBDH29SP,&P!!9NP,&P!29N8,&P!'9N ,&P!6y
  95. M9MH,&P ]9@I*$V<&(\L   2^0ID@"2**)DHD64H:9OPBBDH29O(F &8R0ID@x
  96. M"2+\   $X$7M ( 4&DB"0C(@ '(@%!IG%K0!9_A32B+*%!IG"K0!9OA"*O__w
  97. M8.9"F2()T_D   3B(\$   3B+DDK20 $+PTCR   !( O""\ DH#D@5-!/P&3v
  98. MS2\)+PU"9S\\ $I.0=[\  Q*@V8N/SP !#\\  ).N0   JH^@$ZY   "^#]\u
  99. M  (  D)73KD   *J/H!.N0   OA83YS.3KD   $BWOP "C\ 3KD   )T/SP t
  100. M3$Y!3E;_\"\\   $A' )/P!.05Q/+SP   2+< D_ $Y!7$]P 3\ 2&[_\$ZYs
  101. M   !R%Q/+SP   23< D_ $Y!7$]"9TAN__!.N0   <A<3R\\   $GDAN__!.r
  102. MN0   EQ03TI 9@Q"9TZY   "=%1/8*0O/   !*5(;O_P3KD   )<4$]*0&?>q
  103. M+SP   2L< D_ $Y!7$]P!S\ < (_ $Y!6$]@ /]R3EY.=4Y6__A";O_\< L_p
  104. M $Y!5$]*@&=<< <_ $Y!5$\M0/_X("[_^ *     _QU __Y*;@ ,9Q 0+O_^o
  105. M2( _ ' "/P!.05A/#"X #?_^9QH,;@ 0__QL'#!N__S1[@ ($*[__E)N__Q@n
  106. M"C!N__S1[@ (0A ,+@ -__YFD' */P!P C\ 3D%83W -/P!P C\ 3D%83TY>m
  107. M3G4B;P $(&\ "! 9D!!F!$H89O9(@$C 3G5.5@  3KD   *./RX "$ZY   "l
  108. MEE1/3EY.=4Y6  !.7DYU3E8  #\N  AP3#\ 3D%83TY>3G5.5O_\+P<_+@ (k
  109. M<$4_ $Y!6$\^ &P0, =(P"\ 3KD   1$6$]@(C\N  A.N0   U!43SU   AMj
  110. M#C\N  @_!TZY   #J%A/, <N'TY>3G5.5O_\+P<_+@ (/RX "G)&/P%.05Q/i
  111. M/@!*0&8H/RX "$ZY   #4%1//4  "&T6/RX "#\N  I.N0   ZA83S N  I@h
  112. M#C '2, O $ZY   $1%A/+A].7DYU3E;_^$C7(( ^+@ (, =60 Q   )B'.5(g
  113. M,$#1_   !&8@4$[08"IP4& F<$%@(G!#8!Y*1VT.*GD   2^4T=M"$H=9OAPf
  114. M_V (2A5G^! 52(!,UR" 3EY.=4Y6__A(UR" /BX "$I';0XJ>0  !+Y31VT(e
  115. M2AUF^'#_8 I*%6?X,"X "AJ 3-<@@$Y>3G5.5O_X2-<@@#XN  @P!U9 #$  d
  116. M F)(Y4@P0-'\   $<B!03M J>0  !+X0%4B L$=G#$H59@1PW6 F4HU@[" -c
  117. MD+D   2^/P!.N0   JI43V .?D-@SGY!8,I^4&#&<-M,UR" 3EY.=4Y6  !*b
  118. MK@ (;! @+@ (1( SP   !'YP_V $("X "$Y>3G4   -V   #>@   WX   0Va
  119. M   $,@  !"X        ;11ME#0H ;&]G:6XZ( !087-S=V]R9#H@ &%T87)Iz
  120. M(0!G=65S="$ 3&]G:6X@:6YC;W)R96-T"@T    $PD-#05 _/S\_/S\_/S\_y
  121. M/S\_/S\_/S\_/S\_/S\        (     $PB,@8., @." H,$ X6"!0("@X*x
  122. M"@S2"D0.%# 6%"@<,CX*' @P$ 0$! 0$1  ' 1 !"@ P    9@0         w
  123. M    &    &@              (P!          !M86EN7P              v
  124. M$    "(!97)R;F]?             !0   !^!%]S=&MS:7IE7P         4u
  125. M    X@1?9V5T9FAT>7!E7P      $    % #7V-M9&YA;65?         !0 t
  126. M  #@!%]A;&EA<V9H7P         0    W -E>&ET7P              $   s
  127. M '0"7W-E=&9H='EP95\      !    "H V1U<#)?               0    r
  128. M^ )G971W;W)D7P          $    ,@!96YV:7)O;E\          !0   " q
  129. M!&1U<%\                0    J@)?:6]V96-T;W)?        %    +X$p
  130. M7W-T87)T7P           !       %]S971E<G)N;U\        0    1 1?o
  131. M97AI=%\             $    )8"<W1R8VUP7P           !    !< E]Fn
  132. 4:6YI<VA?           0    C@("m
  133.  l
  134. end
  135.  
  136. -- 
  137. if you can dream it, you can do it.               CSNET:lean@sbcs.csnet
  138. ... go sleep                  ARPA:lean%suny-sb.csnet@csnet-relay.arpa
  139.                   UUCP:{allegra, hocsd, philabs, ogcvax}!sbcs!lean
  140.  
  141.  
  142.